#!C:\strawberry\perl\bin\perl.exe

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);



my $ua = LWP::UserAgent->new();
my $req = POST 'http://admin:123@localhost:8080/exist/rest/db/xupdate';
my $res = $req->content('rss.xml');

print $res;